home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 1601_700 / DISK1617 / DISK1617.ZIP / DISAMTST.LST < prev    next >
File List  |  1990-06-02  |  6KB  |  141 lines
  1.                                                                        PAGE   1
  2.                                                                        06-02-90
  3.                                                                        14:29:33
  4. Offset  Data    Source Line               GW-BASIC Compiler Version 3.20  V2.02
  5.  
  6.  0030   0006    1 DEF SEG=&H0012              'SET SEGMENT TO DFH3 EPA
  7.  0040   0006    2 X=PEEK(&H0)
  8.  004F   000A    3 DEF SEG                     'SET SEGMENT BACK TO BASIC
  9.  0052   000A    4 IF NOT (X<>234) THEN 7
  10.  0060   000A    5 PRINT "DISAM File Handler is not loaded"
  11.  006C   000A    6 STOP
  12.  006F   000A    7 REM END IF
  13.  006F   000A    8 PRINT "                  DISAM FILE TEST PROGRAM"
  14.  007B   000A    9 INPUT "Enter function or 'end' ",A$
  15.  008D   000E    10 GOSUB 89 : REM MAKE.LOWER.UPPE
  16.  0090   000E    11 F$=LEFT$(A$,1)
  17.  009F   0012    12 IF NOT (F$="E") THEN 14
  18.  00AD   0012    13 SYSTEM                  'EXIT
  19.  00B0   0012    14 REM END IF
  20.  00B0   0012    15 B1$=""
  21.  00B9   0016    16 INPUT "Enter buffer number ",B1$
  22.  00CB   0016    17 IF NOT (B1$<>"") THEN 19
  23.  00D9   0016    18 B$=B1$                  'ASSUME A NEW BUFFER NUMBER
  24.  00E2   001A    19 REM END IF
  25.  00E2   001A    20 IF F$="C" GOTO 33
  26.  00F0   001A    21 IF F$="F" GOTO 33
  27.  00FE   001A    22 IF NOT (F$="O") THEN 26
  28.  010C   001A    23 QFLAG=0
  29.  0115   001E    24 INPUT "Enter Filename ",R$
  30.  0127   0022    25 GOTO 33 : REM |SKIP
  31.  012A   0022    26 REM END IF
  32.  012A   0022    27 IF NOT (F$="Q") THEN 31
  33.  0138   0022    28 QFLAG=1
  34.  0141   0022    29 INPUT "Enter Filename ",R$
  35.  0153   0022    30 GOTO 33 : REM |SKIP
  36.  0156   0022    31 REM END IF
  37.  0156   0022    32 INPUT "Enter record ",R$
  38.  0168   0022    33 S=1                         'NEED 1 BYTE MINIMUM
  39.  0171   0026    34 IF NOT (F$="A") THEN 36
  40.  017F   0026    35 S=0
  41.  0188   0026    36 REM END IF
  42.  0188   0026    37 IF NOT (F$="P") THEN 39
  43.  0196   0026    38 S=0
  44.  019F   0026    39 REM END IF
  45.  019F   0026    40 IF NOT (F$="G") THEN 42
  46.  01AD   0026    41 S=255-LEN(R$)           'SET UP RETURN RECORD LENGTH
  47.  01C2   0026    42 REM END IF
  48.  01C2   0026    43 F$=F$+","+B$                'ADD BUFFER NUMBER TO FUNCTION
  49.  01D7   0026    44 R$=R$+SPACE$(S)             'PAD USER'S RECORD
  50.  01EA   0026    45 DEF SEG=&H0012              'SET SEGMENT DFH3 EPA
  51.  01F0   0026    46 DFH3=&H0                    'SET ENTRY POINT ADDRESS VALUE
  52.  01F9   002A    47 CALL ABSOLUTE (F$,R$,DFH3)  'CALL SUBROUTINE (COMPILED VERSI
  53.                 ON)
  54.  0210   002A    48 DEF SEG                     'SET SEGMENT BACK TO BASIC
  55.  0213   002A    49 IF NOT (LEN(R$)<>1) THEN 52
  56.  0221   002A    50 PRINT R$
  57.  022D   002A    51 GOTO 9 : REM |LOOP
  58.  0230   002A    52 REM END IF
  59.  0230   002A    53 IF NOT (R$="0") THEN 56
  60.                                                                        PAGE   2
  61.                                                                        06-02-90
  62.                                                                        14:29:33
  63. Offset  Data    Source Line               GW-BASIC Compiler Version 3.20  V2.02
  64.  
  65.  023E   002A    54 PRINT "Function completed successfully"
  66.  024A   002A    55 GOTO 9 : REM |LOOP
  67.  024D   002A    56 REM END IF
  68.  024D   002A    57 IF NOT (R$="1") THEN 60
  69.  025B   002A    58 PRINT "Record not found"
  70.  0267   002A    59 GOTO 9 : REM |LOOP
  71.  026A   002A    60 REM END IF
  72.  026A   002A    61 IF NOT (R$="2") THEN 64
  73.  0278   002A    62 PRINT "Record already exists"
  74.  0284   002A    63 GOTO 9 : REM |LOOP
  75.  0287   002A    64 REM END IF
  76.  0287   002A    65 IF NOT (R$="3") THEN 68
  77.  0295   002A    66 PRINT "End of File"
  78.  02A1   002A    67 GOTO 9 : REM |LOOP
  79.  02A4   002A    68 REM END IF
  80.  02A4   002A    69 IF NOT (R$="4") THEN 72
  81.  02B2   002A    70 PRINT "Record length is either to long or to short"
  82.  02BE   002A    71 GOTO 9 : REM |LOOP
  83.  02C1   002A    72 REM END IF
  84.  02C1   002A    73 IF NOT (R$="5") THEN 76
  85.  02CF   002A    74 PRINT "File sharing not allowed"
  86.  02DB   002A    75 GOTO 9 : REM |LOOP
  87.  02DE   002A    76 REM END IF
  88.  02DE   002A    77 IF NOT (R$="7") THEN 80
  89.  02EC   002A    78 PRINT "DISAM file not found"
  90.  02F8   002A    79 GOTO 9 : REM |LOOP
  91.  02FB   002A    80 REM END IF
  92.  02FB   002A    81 IF NOT (R$="8") THEN 84
  93.  0309   002A    82 PRINT "The buffer requested is currently in use"
  94.  0315   002A    83 GOTO 9 : REM |LOOP
  95.  0318   002A    84 REM END IF
  96.  0318   002A    85 PRINT "Invalid DISAM Request"
  97.  0324   002A    86 GOTO 9 : REM |LOOP
  98.  0327   002A    87 END
  99.  032A   002A    88 REM SUB MAKE.LOWER.UPPE
  100.  032A   002A    89 FOR A9=1 TO LEN(A$)
  101.  0342   002E    90 A8=ASC(MID$(A$,A9))
  102.  035F   0036    91 IF NOT ((A8>96 AND A8<123)) THEN 93
  103.  0385   0036    92 MID$(A$,A9)=CHR$(A8-32)
  104.  03A9   0036    93 REM END IF
  105.  03A9   0036    94 NEXT A9
  106.  03C2   0036    95 RETURN
  107.  03C3   0036    96 REM END PROGRAM
  108.  03C3   0036    
  109.  03C6   0036    
  110.  
  111. 50455 Bytes Available
  112. 48553 Bytes Free
  113.  
  114.     0 Warning Error(s)
  115.     0 Severe  Error(s)
  116.  
  117.  
  118.  Start  Stop   Length Name                   Class
  119.  00000H 003C5H 003C6H DISAMTST_CODE          BC_CODE
  120.  003D0H 00465H 00096H CSEG                   CODESG
  121.  00470H 00470H 00000H SHELL                  CODESG
  122.  00470H 00470H 00000H CODE                   CODE
  123.  00470H 006AFH 00240H BC_ICN_CODE            INIT_CODE
  124.  006B0H 006B2H 00003H BC_IDS_CODE            INIT_CODE
  125.  006C0H 00A32H 00373H INIT_CODE              INIT_CODE
  126.  00A40H 01DABH 0136CH DSEG                   DATASG
  127.  01DACH 01E13H 00068H RTMLOAD                DATASG
  128.  01E20H 01E20H 00000H COMMON                 BLANK
  129.  01E20H 01E20H 00000H CONST                  CONST
  130.  01E20H 01E20H 00000H DATA                   DATA
  131.  01E20H 01E55H 00036H BC_DATA                BC_VARS
  132.  01E56H 01E56H 00000H BC_FT                  BC_SEGS
  133.  01E60H 0209FH 00240H BC_CN                  BC_SEGS
  134.  020A0H 020A2H 00003H BC_DS                  BC_SEGS
  135.  020B0H 022AFH 00200H STACK                  STACK
  136.  
  137.  Origin   Group
  138.  00A4:0   DGROUP
  139.  
  140. Program entry point at 0000:0030
  141.